home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / music / midi / dankon / source / wartz.h < prev    next >
Text File  |  1995-02-10  |  5KB  |  105 lines
  1. /* wartz.h
  2. /*------------------------------------------------------------------------
  3. /*    トラック設定
  4. .track    1    port:A    ch:1    macro:System    /* システム・トラック    */
  5. .track    2    port:A    ch:1    macro:Vn1        /* 第１バイオリン        */
  6. .track    3    port:A    ch:2    macro:Vn2        /* 第２バイオリン        */
  7. .track    4    port:A    ch:3    macro:Va        /* ビオラ        */
  8. .track    5    port:A    ch:4    macro:Vc        /* チェロ        */
  9. .track    6    port:A    ch:5    macro:Db        /* ベース        */
  10. .track    7    port:A    ch:6    macro:Hn        /* ホルン        */
  11. .track    8    port:A    ch:7    macro:Ob        /* オーボエ        */
  12. .track    9    port:A    ch:8    macro:fl        /* フルート        */
  13. .track    10    port:A    ch:9    macro:Tb        /* トロンボーン    */
  14. .track    11    port:A    ch:11    macro:Cl        /* クラリネット    */
  15. .track    12    port:A    ch:10    macro:ryt        /* 打楽器    */
  16. .track    13    port:A    ch:12    macro:Tr        /* トランペット    */
  17. .track    14    port:A    ch:13    macro:Ap        /* ハープ    */
  18. .track    15    port:A    ch:14    macro:Fg        /* ファゴット    */
  19. .track    16    port:A    ch:15    macro:Cl2        /* クラリネット２    */
  20.  
  21. /*------------------------------------------------------------------------
  22. /*    音色設定用マクロ定義
  23.  
  24. #define    T_vn    $BANK(0,0) @PROG(41)
  25. #define    T_va    $BANK(0,0) @PROG(42)
  26. #define    T_STR    $BANK(0,0) @PROG(49)
  27. #define    T_SSTR    $BANK(0,0) @PROG(50)
  28. #define    T_PIZ    $BANK(0,0) @PROG(46)
  29. #define    T_Hn    $BANK(0,0) @PROG(61)
  30. #define    T_Tb    $BANK(0,0) @PROG(58)
  31. #define    T_Tr    $BANK(0,0) @PROG(57)
  32. #define    T_Ob    $BANK(0,0) @PROG(69)
  33. #define    T_Fg    $BANK(0,0) @PROG(71)
  34. #define    T_Cl    $BANK(0,0) @PROG(72)
  35. #define    T_Fl    $BANK(0,0) @PROG(74)
  36. #define    T_Ap    $BANK(0,0) @PROG(47)
  37. #define    T_ryt     @PROG(49)
  38.  
  39. #define    DEFAU    $LEVEL(100) x120     !1(vel:'14,gateper:100)    !2(vel:'-18)
  40. #define    DEFso    $LEVEL(110) x120    !1(vel:'14,gateper:100)    !2(vel:'-18)
  41. #define    DEFPIZ    $LEVEL(100) x120 q45
  42. #define    DEFOb    $LEVEL(90) x105 $REVERB(120) $VIB_DEPTH($4a) $VIB_RATE($43)
  43. #define    DEFFg    $LEVEL(90) x110 $REVERB(110) $VIB_DEPTH($48) $VIB_RATE($41) !1(vel:'12)
  44. #define    DEFFl    $LEVEL(85) x110 $REVERB(115) $VIB_DEPTH($49) $VIB_RATE($44)
  45. #define    DEFHn    $LEVEL(95) x120 $REVERB(120) !1(vel:'12)    
  46.  
  47.  
  48. /*------------------------------------------------------------------------
  49. /*    セットアップ
  50. CTRL(1)        = @TEXT($MEMO()) t250
  51. System(1)    = $exGs_reset()                            /* GS音源の初期化    */        /*------------------------------------------------------------------------            GS セットアップ    */                                                            $exGs_masterVolume(114)                /* Volume */                                $exGs_reverbMacro(4)                /* Hall 2 */                                $exGs_reverbpara(4,1,127,85,0,0)    /**/                                        $exGs_chorusMacro(2)                /* chorus 3 */                                $exGs_choruspara(0,127,10,55,3,20,0)                                            $PBND_RANGE(12)
  52. Vn1(1)    = @INSTNAME("vn1") $(r64)2    $T_str()    $DEFAU()    $panp(-55)    $chorus(18)
  53. Vn2(1)    = @INSTNAME("vn2") $(r64)2    $T_str()    $DEFAU()    $panp(-20)    $chorus(18)
  54. Vn1(11)    =                     $(r64)3    !7(gateper:96)    $DEFAU()
  55. Vn2(21)    =                     $(r64)3    !7(gateper:96)    $DEFAU()
  56. Va(1)    = @INSTNAME("va")    $(r64)2    $T_str()    $DEFAU()    $panp(20)    $chorus(37)
  57. Va(31)    =                     $(r64)3    !7(gateper:96)    $DEFso()    ?1(delay:20)
  58. Vc(1)    = @INSTNAME("vc")    $(r64)2    $T_str() $DEFso() ?1(pitch:50) $chorus(18)
  59. Vc(41)    =                     $(r64)3    !7(gateper:96)    $DEFAU()    $panp(40)
  60. Db(1)    = @INSTNAME("db")    $(r64)2    $T_str()    $DEFAU()    $panp(63)    $chorus(18)
  61. Db(51)    =                     $(r64)3                $DEFAU()
  62. Hn(1)    = @INSTNAME("HN")    $(r64)2    $T_hn()        $DEFhn()    $panp(30)
  63. Hn(61)    =             $(r64)3            $DEFhn()    ?1(delay:20)
  64. Hn(62)    =             $(r64)3            $DEFhn()
  65. Hn(63)    =             $(r64)3            $DEFhn()
  66. Hn(64)    =             $(r64)3            $DEFhn()
  67. Ob(1)    = @INSTNAME("Ob")    $(r64)2    $T_ob()        $DEFob()    $panp(-07)
  68. Ob(71)    =                     $(r64)3    $DEFob()    !1(vel:'14)
  69. Ob(72)    =                     $(r64)3    $DEFob()    !1(vel:'14)
  70. Cl(1)    = @INSTNAME("Cl")    $(r64)2    $T_cl()        $DEFau()    $panp(07)
  71. Cl(71)    =                     $(r64)3    $DEFau()    !1(vel:'5)    !7(gateper:96)
  72. Cl2(1)    = @INSTNAME("Cl")    $(r64)2    $T_cl()        $DEFau()    $panp(07)
  73. Cl2(75)    =                     $(r64)3    $DEFau()    !1(vel:'5)    !7(gateper:96)
  74. Cl(72)    =                     $(r64)3    $DEFau()    !1(vel:'5)    !7(gateper:96)
  75. Fl(1)    = @INSTNAME("Fl")    $(r64)2    $T_Fl()        $DEFFl()    $panp(-15)
  76. Fl(81)    =                     $(r64)3    $DEFFl()    !1(vel:'5)    !7(gateper:96)
  77. Fl(82)    =                     $(r64)3    $DEFFl()    !1(vel:'5)    !7(gateper:96)
  78. Fg(1)    = @INSTNAME("Fg")    $(r64)2    $T_Fg()        $DEFFg()    $panp(15)
  79. Fg(88)    =                     $(r64)3                $DEFFg()    !7(gateper:96)
  80. Fg(89)    =                     $(r64)3                $DEFFg()    !7(gateper:96)
  81. Tb(1)    = @INSTNAME("Tb")    $(r64)2    $T_Tb()        $DEFAU()    $panp(-35)
  82. Tb(91)    =                    $(r64)3                $DEFAU()    $REVERB(100)
  83. Tb(92)    =                    $(r64)3                $DEFAU()
  84. Tb(94)    =                    $(r64)3                $DEFAU()
  85. Tr(1)    = @INSTNAME("Tr")    $(r64)2    $T_Tr()        $DEFAU()    $panp(0)
  86. Tr(55)    =                    $(r64)3                $DEFAU()
  87. Tr(56)    =                    $(r64)3                $DEFAU()
  88. Ap(1)    = @INSTNAME("Ap")    $(r64)3    $T_ap()        $DEFAU()    $panp(-13)
  89. Ap(98)    =                     $(r64)3                $DEFAU()    !1(vel:'15)
  90. Ap(99)    =                     $(r64)3                $DEFAU()    !1(vel:'15)
  91. /* Va(35)    =                                         $DEFpiz()
  92. /* Db(55)    =                                         $DEFpiz()
  93. RYT(10)    =    $T_ryt()                            $REVERB(100)    $panp(-25)
  94. /* for Db(1) bun! cha! cha! の BUN
  95. #define bun     l32$slide(r,x,24,,e^x,127,80)
  96. #define bun4 l32$slide(r,x,8,,e^x,127,105)
  97. #define bun2 l32$slide(r,x,16,,e^x,127,90)
  98. #define bunt2 l32$slide(r,x,16,,x^2,127,79)
  99. #define bun1 l32$slide(r,x,24,,e^x,$1,$2)
  100. #define tan1 l32$slide(r,x,48,,e^x,$1,$2)
  101. #define tan2 l32$slide(r,x,48,,e^x,127,80)
  102. #define tan3 x127r8l32$slide(r,x,24,,x,99,68)
  103. /* for Db(1) bun! cha! cha! の cha
  104. #define cha     r4r8x'-15$(r32x'-7)3 r32x'36r8x'-15$(r32x'-7)3 r32x'36
  105.